5 IFPEEK(56)<>150THENPOKE56,150:CLR 6 IFATHEN41 10 DV=PEEK(186):IFDV<8THENDV=8 20 POKE53281,.:POKE53280,.:PRINT"[147]" 30 GOSUB260 40 SYS57812"FERN64.ML",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493 41 IFA=0THENA=1:LOAD"9600 MENU",DV,1 42 IFA=1THENA=2:LOAD"9800 MENU.O",DV,1 43 IFA=2THENA=3:LOAD"I-MENU $CC00",DV,1 44 IFA=3THENA=4:LOAD"FRN DIR CA00",DV,1 50 B$=" [221] [221]" 70 PRINT" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]" 80 FORI=1TO7:PRINTB$:NEXT 90 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]" 120 PRINTTAB(15)"[145][145][145][145][145][204]OADING..." 200 PRINT"[144]LOAD"CHR$(34)"FERN64.CODE"CHR$(34)","DV 210 PRINT"RUN" 220 POKE44,64:POKE16384,0 230 POKE631,13:POKE632,13:POKE198,2 240 END 250 : 260 POKE214,15:PRINT 270 PRINT" [151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]" 280 PRINT" [152] " 290 PRINT"  [198] [197] [210] [206] [214] [193] [204] [204] [197] [217] " 300 PRINT"  [194]Y [201]AN [193]DAM (C) 1991 BY [211]OFTDISK " 310 PRINT"  [214]1.0 [208]UBLISHED ON [204][207][193][196][211][212][193][210] #86 " 320 PRINT"  [211]UBSCRIPTIONS 1-800-831-2694 " 330 PRINT"  [193]LL [210]IGHTS [210]ESERVED " 340 PRINT"  " 350 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]" 360 RETURN 10000 OPEN15,8,15,"S0:FERN BOOT":CLOSE15:SAVE"FERN BOOT",8:END